Ì i 2
main
[version,code]
&(D)DRI[djc,dri]
Field Name Len Dat Typ J DPM Offset/Local/VAL
version 10 FREE L ABS.VERSION djc
code 2 PINT R dri
active 1 YN L &(D)DRI[djc,dri]|0
custom 1 YN L &(D)DRI[djc,dri]CU|0
last.user 10 FREE L MIS.USER &(D)DRI[djc,dri]USR
name 70 FREE L &(D)DRI[djc,dri]|1
name.50 50 FREE L VAL=(@ABS.DPG.name$50)
name.60 60 FREE L VAL=(@ABS.DPG.name$60)
proc 5 FREE L ABS.PROC
riw 10 DEC R
source 1 CHOICE L &(D)DRI[djc,dri]|2
Index Files Subscripts/Physical Base
name.index [version,name,code]
?(D)DRIN[djc,driN,dri]
proc.index [version,proc,code] = riw
?(D)DRIP[djc,drc,dri]
|
|